Hệ thống quản lý thanh toán POS nhà hàng
1 Public Class frmGetCash
2 Dim sign_Indicator As Integer = 0
3 Dim variable1 As Double
4 Dim variable2 As Double
5 Dim fl As Boolean = False
6 Dim s, x As String
7 Private Sub btnOkay_Click(sender As System.Object, e As System.EventArgs) Handles btnOkay.Click
8 Try
9 If txtCash.Text = "" Then
10 MessageBox.Show("Please enter Cash", "Info", MessageBoxButtons.OK, MessageBoxIcon.Information)
11 txtCash.Focus()
12 Exit Sub
13 End If
14 frmBillling.txtCash.Text = txtCash.Text
15 Me.Close()
16 Catch ex As Exception
17 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
18 End Try
19 End Sub
20
21 Private Sub txtRate_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtCash.KeyPress
22 Dim keyChar = e.KeyChar
23
24 If Char.IsControl(keyChar) Then
25 'Allow all control characters.
26 ElseIf Char.IsDigit(keyChar) OrElse keyChar = "."c Then
27 Dim text = Me.txtCash.Text
28 Dim selectionStart = Me.txtCash.SelectionStart
29 Dim selectionLength = Me.txtCash.SelectionLength
30
31 text = text.Substring(0, selectionStart) & keyChar & text.Substring(selectionStart + selectionLength)
32
33 If Integer.TryParse(text, New Integer) AndAlso text.Length > 16 Then
34 'Reject an integer that is longer than 16 digits.
35 e.Handled = True
36 ElseIf Double.TryParse(text, New Double) AndAlso text.IndexOf("."c) < text.Length - 3 Then
37 'Reject a real number with two many decimal places.
38 e.Handled = False
39 End If
40 Else
41 'Reject all other characters.
42 e.Handled = True
43 End If
44 End Sub
45
46 Private Sub frmChangeRate_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
47
48 End Sub
49
50 Private Sub btnTA1_Click(sender As System.Object, e As System.EventArgs) Handles btnTA1.Click
51 If sign_Indicator = 0 Then
52 txtCash.Text = txtCash.Text + Convert.ToString(1)
53 ElseIf sign_Indicator = 1 Then
54 txtCash.Text = Convert.ToString(1)
55 sign_Indicator = 0
56 End If
57 fl = True
58 End Sub
59
60 Private Sub btnTA2_Click(sender As System.Object, e As System.EventArgs) Handles btnTA2.Click
61 If sign_Indicator = 0 Then
62 txtCash.Text = txtCash.Text + Convert.ToString(2)
63 ElseIf sign_Indicator = 1 Then
64 txtCash.Text = Convert.ToString(2)
65 sign_Indicator = 0
66 End If
67 fl = True
68 End Sub
69
70 Private Sub btnTA3_Click(sender As System.Object, e As System.EventArgs) Handles btnTA3.Click
71 If sign_Indicator = 0 Then
72 txtCash.Text = txtCash.Text + Convert.ToString(3)
73 ElseIf sign_Indicator = 1 Then
74 txtCash.Text = Convert.ToString(3)
75 sign_Indicator = 0
76 End If
77 fl = True
78 End Sub
79
80 Private Sub btnTA4_Click(sender As System.Object, e As System.EventArgs) Handles btnTA4.Click
81 If sign_Indicator = 0 Then
82 txtCash.Text = txtCash.Text + Convert.ToString(4)
83 ElseIf sign_Indicator = 1 Then
84 txtCash.Text = Convert.ToString(4)
85 sign_Indicator = 0
86 End If
87 fl = True
88 End Sub
89
90 Private Sub btnTA5_Click(sender As System.Object, e As System.EventArgs) Handles btnTA5.Click
91 If sign_Indicator = 0 Then
92 txtCash.Text = txtCash.Text + Convert.ToString(5)
93 ElseIf sign_Indicator = 1 Then
94 txtCash.Text = Convert.ToString(5)
95 sign_Indicator = 0
96 End If
97 fl = True
98 End Sub
99
100 Private Sub btnTA6_Click(sender As System.Object, e As System.EventArgs) Handles btnTA6.Click
101 If sign_Indicator = 0 Then
102 txtCash.Text = txtCash.Text + Convert.ToString(6)
103 ElseIf sign_Indicator = 1 Then
104 txtCash.Text = Convert.ToString(6)
105 sign_Indicator = 0
106 End If
107 fl = True
108 End Sub
109
110 Private Sub btnTA7_Click(sender As System.Object, e As System.EventArgs) Handles btnTA7.Click
111 If sign_Indicator = 0 Then
112 txtCash.Text = txtCash.Text + Convert.ToString(7)
113 ElseIf sign_Indicator = 1 Then
114 txtCash.Text = Convert.ToString(7)
115 sign_Indicator = 0
116 End If
117 fl = True
118 End Sub
119
120 Private Sub btnTA8_Click(sender As System.Object, e As System.EventArgs) Handles btnTA8.Click
121 If sign_Indicator = 0 Then
122 txtCash.Text = txtCash.Text + Convert.ToString(8)
123 ElseIf sign_Indicator = 1 Then
124 txtCash.Text = Convert.ToString(8)
125 sign_Indicator = 0
126 End If
127 fl = True
128 End Sub
129
130 Private Sub btnTA9_Click(sender As System.Object, e As System.EventArgs) Handles btnTA9.Click
131 If sign_Indicator = 0 Then
132 txtCash.Text = txtCash.Text + Convert.ToString(9)
133 ElseIf sign_Indicator = 1 Then
134 txtCash.Text = Convert.ToString(9)
135 sign_Indicator = 0
136 End If
137 fl = True
138 End Sub
139
140 Private Sub btnTAComma_Click(sender As System.Object, e As System.EventArgs) Handles btnTAComma.Click
141 Dim i As Integer = 0
142 Dim chr As Char = ControlChars.NullChar
143 Dim decimal_Indicator As Integer = 0
144 Dim l As Integer = txtCash.Text.Length - 1
145 If sign_Indicator <> 1 Then
146 For i = 0 To l
147 chr = txtCash.Text(i)
148 If chr = "."c Then
149 decimal_Indicator = 1
150 End If
151 Next
152
153 If decimal_Indicator <> 1 Then
154 txtCash.Text = txtCash.Text + Convert.ToString(".")
155 End If
156 End If
157 End Sub
158
159 Private Sub btnTA0_Click(sender As System.Object, e As System.EventArgs) Handles btnTA0.Click
160 If sign_Indicator = 0 Then
161 txtCash.Text = txtCash.Text + Convert.ToString(0)
162 ElseIf sign_Indicator = 1 Then
163 txtCash.Text = Convert.ToString(0)
164 sign_Indicator = 0
165 End If
166 fl = True
167 End Sub
168
169 Private Sub btnTAx_Click(sender As System.Object, e As System.EventArgs) Handles btnTAx.Click
170 s = txtCash.Text
171 Dim l As Integer = s.Length
172 For i As Integer = 0 To l - 2
173 x += s(i)
174 Next
175 txtCash.Text = x
176 x = ""
177 End Sub
178
179 Private Sub btnClear_Click(sender As System.Object, e As System.EventArgs) Handles btnClear.Click
180 txtCash.Text = ""
181 End Sub
182
183 End Class
